home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / gfx / board / cybergfx4040.lha / cybershare / CyberGfx_Install < prev    next >
Text File  |  1995-02-05  |  33KB  |  979 lines
  1. ;******************************************************************************** 
  2. ;
  3. ;CyberGraphics Install By Robert Reiswig ©1995
  4. ;For Frank Mariak 
  5. ;Thanks to ScottE for the EGS Dirs
  6. ;Thanks to Flam for Spectrum testing! 
  7. ;
  8. ;********************************************************************************
  9.  
  10.  
  11. ;******************************************************************************** 
  12. ;
  13. ; Read All System information 
  14. ;
  15. ;********************************************************************************
  16. (set #PAY 0) ; 0=NO 1=YES 
  17. (set cpu (database "cpu"))
  18. (set vblank (database "vblank"))
  19. (set graphmem (database "graphics-mem"))
  20. (set totmem (database "total-mem"))
  21. (set osver (/ (getversion "LIBS:version.library") 65536))
  22. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  23. (set fastmem (- totmem graphmem))
  24.  
  25. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  26. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  27. ( if (= osver 41) ( (set workbench "4.0")) )))))
  28.  
  29. (run "type >RAM:Cyber SYS:Expansion/village.library.info opt h")
  30. (set runstring (cat "search" " RAM:Cyber "))
  31.  
  32. (set runstring1 (cat runstring "\"R=64\""))   (if (= (run runstring1) 0) (set MonitorIS 64))      
  33. (set runstring1 (cat runstring "\"R=57\""))   (if (= (run runstring1) 0) (set MonitorIS 57))
  34. (set runstring1 (cat runstring "\"R=48\""))   (if (= (run runstring1) 0) (set MonitorIS 48))
  35. (set runstring1 (cat runstring "\"R=38\""))   (if (= (run runstring1) 0) (set MonitorIS 38))
  36. (set runstring1 (cat runstring "\"R=35\""))   (if (= (run runstring1) 0) (set MonitorIS 35))
  37. (set runstring1 (cat runstring "\"R=15\""))   (if (= (run runstring1) 0) (set MonitorIS 15))
  38. (set runstring1 (cat runstring "\"CUSTOM\"")) (if (= (run runstring1) 0) (set MonitorIS 99))    
  39.  
  40.  
  41. (run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
  42. (set runstring (cat "search" " RAM:lan "))
  43.  
  44. (set english "")  (set german  "")
  45.  
  46. (set runstring1 (cat runstring "\"deutschland\""))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
  47. (set runstring1 (cat runstring "\"english\""))   (if (= (run runstring1) 0) (set english1 "English"))      
  48.  
  49. ;******************************************************************************** 
  50. ;
  51. ;ASK DEFAULT LANG
  52. ;
  53. ;********************************************************************************
  54.  
  55.  
  56. (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))
  57.  
  58. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  59.              (prompt #langQuestion)
  60.                      (help "Select a Language")
  61.                    (default lang)
  62.                  )
  63.           )
  64. )
  65.  
  66.  
  67.  
  68.  
  69. ;******************************************************************************** 
  70. ;
  71. ;English Information
  72. ;
  73. ;********************************************************************************
  74.  
  75.  
  76. (set #ThankYou (cat "\nWelcome to the Registered version of the Cybergraphics "
  77.                     "installer!\n\n\nTHANK YOU"
  78.                )
  79. )
  80.  
  81. (set #By (cat "Cybergraphics Software by:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  82.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  83.               "\n\n\nInstaller By:\n Robert Reiswig - rcr@netcom.com"
  84.          )
  85. )
  86.  
  87.  
  88.  
  89.  
  90.  
  91. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  92.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  93.                     "Kickstart 3.x, **You only have " workbench "**\n\n" 
  94.                     "PicassoII in linear mode *not segmented*\n\n"
  95.                     "68020 or higher\n\n"
  96.                     "2 MB of fast memory"                       
  97.                ) 
  98. )
  99.  
  100.  
  101. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  102.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  103.                     "68020 or higher, **You only have " cpu "**\n\n"
  104.                     "PicassoII in linear mode *not segmented*\n\n"
  105.                     "Kickstart 3.x\n\n"                     
  106.                     "2 MB of fast memory" 
  107.                )
  108. )  
  109.  
  110.  
  111. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  112.                    " \"" workbench "\" Version of OS\n\n"
  113.                    " \"" cpu "\" Processor\n\n "
  114.                    " \"" blank "\" Machine\n\n"
  115.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  116.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  117.               )
  118. )
  119.  
  120.  
  121. (set #WillInstall "\n\n\n\nThis installer will Move OR Delete the Current Graphic Boards's Drivers.  Please read the Docs if you have any question!\n")
  122.  
  123.  
  124. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  125.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  126.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  127.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  128.                           "YOU MUST DO THIS NOW!"
  129.                      )
  130. )
  131.  
  132.  
  133. (set #BackUpFiles "BackUp the Files")
  134. (set #DeleteFiles "Delete the Files")
  135. (set #ask-BackOrDelete "The Installer will Back up the Village Tronic Picasso II files to SYS:Storage/Village or SYS:Storage/EGS for EGS boards. What do you want it to do?")
  136.  
  137.  
  138. (set #YES-ADPRO "Yes - Install ADPro Saver")
  139. (set #NO-ADPRO "No - Don't Install ADPro Saver")
  140. (set #ask-ADPRO "Do you wish to install the CyBERgraphics ADPro saver?")
  141. (set #where-ADPRO "Where do you wish to Install the ADPro Saver?\n(The default is \"ADPRO:Savers2\")")
  142.  
  143. (set #YES-MC4D "Yes - Install MaxonCinema4D display module")
  144. (set #NO-MC4D "No - Don't Install MaxonCinema4D display module")
  145. (set #ask-MC4D "Do you wish to install the MaxonCinema4D display module?")
  146. (set #where-MC4D "Where do you wish to Install the MaxonCinema4D display module?\n(The default is \"libs:\")")
  147.  
  148. (set #YES-PHOTOW "Yes - Install PhotoworX display module")
  149. (set #NO-PHOTOW "No - Don't Install PhotoworX display module")
  150. (set #ask-PHOTOW "Do you wish to install the PhotoworX display module?")
  151. (set #where-PHOTOW "Where do you wish to Install the PhotoworX display module?\n(The default is \"work:\")")
  152.  
  153. (set #YES-PHOTOG "Yes - Install Photogenics saver module")
  154. (set #NO-PHOTOG "No - Don't Install Photogenics saver module")
  155. (set #ask-PHOTOG "Do you wish to install the Photogenics saver module?")
  156. (set #where-PHOTOG "Where do you wish to Install the Photogenics saver module?\n(The default is \"work:\")")
  157.  
  158. (set #YES-REAL "Yes - Install Real3D display module")
  159. (set #NO-REAL "No - Don't Install Real3D display module")
  160. (set #ask-REAL "Do you wish to install the Real3D display module?")
  161. (set #where-REAL "Where do you wish to Install the Real3D display module?\n(The default is \"libs:\")")
  162.  
  163. (set #ask-MODEFILE "Which modefile should be installed ?")
  164. (set #15KHZ "15khz maximum")
  165. (set #31KHZ "31khz maximum")
  166. (set #57KHZ "57khz maximum")
  167. (set #64KHZ "64khz maximum")
  168.  
  169.  
  170. (set #wishtoinstall "Do you wish to install any of the following?")
  171. (set #order "Order Form")
  172. (set #guide "AmigaGuide File")
  173. (set #devdocs  "Developer Documentation")
  174. (set #versions "Versions - Shows Vers of Cybergraphics") 
  175. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphics\" will be created there!)")
  176.  
  177. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  178.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  179.                    "you can open 24bit screens as standard intuition screens and that you "
  180.                    "can use all graphics.library functions on them as before. (with some "
  181.                    "limitations of course because of the missing color lookup table)\n\n"
  182.                    "Application to adjust the monitor parameters"
  183.               )  
  184. )
  185.    
  186.  
  187.  
  188. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  189.                    "As a registered user, you will get the latest registered "
  190.                    "release of cybergraphics including a personalized graphics board driver.\n\n"
  191.                    "The first update of the graphics board driver is for free, any forthcoming "
  192.                    "update will cost DM 5 (US$ 5 outside EU) just to pay our posting&packaging "
  193.                    "costs. email updates will be charge free. This offer is valid for registered users only of course."
  194.               )
  195. )
  196.  
  197.  
  198.  
  199. (set #REG (cat "LAST INFO\n~~~~~~~~~~~~~\n"
  200.                "You can reach us at the following address:\n"
  201.                "          Frank Mariak       Thomas Sontowski        \n"
  202.                "        Klosterstr. 7      Bensberger Marktweg 15\n"
  203.                "        44135 Dortmund     51069 Köln            \n\n\n"
  204.                "Feel free to contact us by email or smail if you have any questions."
  205.           )
  206. )
  207.  
  208.  
  209.  
  210. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  211.                         "* In the Shareware release there are no custom modes available. "
  212.                         "In the registered version there are no limitations of this kind "
  213.                         "of course. You may define higher colordepth and refresh frequencies.\n"
  214.                         "* There is only an AdPro driver in the shareware package. "
  215.                         "There also exist drivers for Maxon Cinema 4D, Real3D, Photogenics, "
  216.                         "PhotoWorx, AmaxIV ... more to come.\n"
  217.                         "* If you are registered we grant support if you have any problems "
  218.                         "or questions by email and/or smail. We can't do this for any person who "
  219.                         "has problems with the unregistered release !\n"
  220.                    )
  221. )
  222.  
  223.  
  224.  
  225. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  226.                   "By setting this variable, the planar-to-chunky conversion "
  227.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  228.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  229.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  230.              )
  231. )
  232.   
  233.  
  234. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  235.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  236.                      "become Hires-sprites (they are no longer doubled by "
  237.                      "the cybergraphics-Software). "
  238.                      "This variable is identical to the tooltype HIRESSPRITE "
  239.                      "of older Picasso-monitor files."
  240.                 )
  241. )
  242.   
  243.  
  244.  
  245. ;******************************************************************************** 
  246. ;
  247. ;German Information
  248. ;
  249. ;********************************************************************************
  250.  
  251. (if (= LAN 0)
  252. (
  253.  
  254. (set #By (cat "Cybergraphics Software von:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  255.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  256.               "\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  257.          )
  258. )
  259.  
  260. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  261.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  262.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  263.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  264.                   "68020 oder höher\n\n"
  265.                   "2 MB FAST Ram"
  266.              )
  267. )
  268.  
  269. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  270.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  271.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  272.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  273.                    "Kickstart 3.x\n\n"
  274.                    "2 MB FAST Ram"
  275.               )
  276. )
  277.  
  278.  
  279. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  280.                    " Version \"" Workbench "\" des OS\n\n"
  281.                    " \"" cpu "\" Prozessor\n\n "
  282.                    " \"" blank "\" Gerät\n\n"
  283.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  284.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  285.               )
  286. )
  287.  
  288.  
  289. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  290.  
  291.  
  292. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  293.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  294.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  295.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  296.                           "YOU MUST DO THIS NOW!"
  297.                      )
  298. )
  299.  
  300.  
  301. (set #BackUpFiles "Sichern der alten Dateien")
  302. (set #DeleteFiles "Löschen der alten Dateien")
  303. (set #ask-BackOrDelete "Der Installer sichert die Village Tronic Picasso II Dateien in SYS:Storage/Village oder SYS:Storage/EGS für EGS Karten. Was wollen sie tun?")
  304.  
  305.  
  306. (set #YES-ADPRO "Ja - Installiere ADPro Saver")
  307. (set #NO-ADPRO "Nein - Installiere ADPro Saver nicht")
  308. (set #ask-ADPRO "Wollen Sie den CyBERgraphics ADPro saver installieren ?")
  309. (set #where-ADPRO "Wohin wollen Sie den ADPro Saver installieren ?\n(Default ist \"ADPRO:Savers2\")")
  310.  
  311.  
  312. (set #YES-MC4D "Ja - Installiere MaxonCinema4D Treiber")
  313. (set #NO-MC4D "Nein - Installiere MaxonCinema4D Treiber nicht")
  314. (set #ask-MC4D "Wollen Sie den MaxonCinema4D Treiber installieren ?")
  315. (set #where-MC4D "Wohin wollen Sie den MaxonCinema4D Treiber installieren ?\n(Default ist \"libs:\")")
  316.  
  317. (set #YES-PHOTOW "Ja - Installiere PhotoworX Treiber")
  318. (set #NO-PHOTOW "Nein - Installiere PhotoworX Treiber nicht")
  319. (set #ask-PHOTOW "Wollen Sie den PhotoworX Treiber installieren ?")
  320. (set #where-PHOTOW "Wohin wollen Sie den PhotoworX Treiber installieren ?\n(Default ist \"work:\")")
  321.  
  322. (set #YES-PHOTOG "Ja - Installiere Photogenics Saver")
  323. (set #NO-PHOTOG "Nein - Installiere Photogenics Saver nicht")
  324. (set #ask-PHOTOG "Wollen Sie den Photogenics Saver installieren ?")
  325. (set #where-PHOTOG "Wohin wollen Sie den Photogenics Treiber installieren ?\n(Default ist \"work:\")")
  326.  
  327.  
  328. (set #YES-REAL "Ja - Installiere Real3D Treiber")
  329. (set #NO-REAL "Nein - Installiere Real3D Treiber nicht")
  330. (set #ask-REAL "Wollen Sie den Real3D Treiber installieren ?")
  331. (set #where-REAL "Wohin wollen Sie den Real3D Treiber installieren ?\n(Default ist \"libs:\")")
  332.  
  333. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  334. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  335. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  336. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  337. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  338.  
  339. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  340. (set #order "Bestellformular")
  341. (set #guide "AmigaGuide Datei")
  342. (set #devdocs  "Entwickler Dokumentation")
  343. (set #versions "Versions - Zeigt die CyberGFX Versionen") 
  344. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphics\" wird automatisch erstellt!)")
  345.  
  346. (set #Comming (cat "\nCOMING! (Geplante Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  347.                    "* 15/16/24 bit Erweiterung der "normalen" graphics.library, das bedeutet, daß "
  348.                    "man 24bit Bildschirme als Standard Intuition Bildschirme öffnen kann und "
  349.                    "das alle graphics.library Funktionen wie zuvor darauf benutzt werden können "
  350.                    "(mit Einschränkungen wegen der fehlenden Farbtabelle)\n\n"
  351.                    "* Ein Monitor Modes Edit Tool"
  352.               )  
  353. )
  354.    
  355.  
  356. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  357.             "Als registrierter Anwender erhalten Sie die neueste Version von "
  358.             "cybergraphics mit einem auf sie persönlich registrierten Grafikkarten "
  359.             "Treiber. Neu erscheinende Versionen der cybergraphics libraries "
  360.             "und tools werden weiterhin über elektronische Netze veröffentlicht "
  361.             "und können dann auch direkt von Ihnen ohne Einschränkungen genutzt "
  362.             "werden. Neue Versionen des Grafikkarten Treibers werden Ihnen "
  363.             "persönlich zugestellt (per smail bzw. email)\n"
  364.             "Das erste Update des Grafikkarten Treibers bekommen Sie kostenlos "
  365.             "zugestellt, alle weiteren werden Ihnen gegen einen Unkostenbeitrag von "
  366.             "DM 5 (US$ 5 außerhalb der EU) umgehend zugestellt, falls sie den Postweg "
  367.             "wünschen (email-Zusendung bleibt kostenfrei) "
  368.             "Dieses Angebot gilt selbstverständlich nur für registrierte Benutzer.\n"
  369.               )
  370. )
  371.  
  372.  
  373. (set #REG        (cat"Letzte Info\n~~~~~~~~~~~~~\n"
  374.                      " Bei Fragen wenden Sie sich an:\n\n"
  375.                      "     Frank Mariak       Thomas Sontowski        \n"
  376.                      "      Klosterstr. 7      Bensberger Marktweg 15\n"
  377.                      "      44135 Dortmund     51069 Köln            \n\n\n"
  378.                      "Bei Anregungen & Verbesserungsvorschläge können Sie uns gerne per Post oder email kontaktieren."
  379.                  )
  380.  
  381. )
  382.  
  383.  
  384.  
  385.  
  386. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  387.                         "* Im Shareware release sind keine Custom Modes verfügbar. "
  388.                         "In der registrierten Version sind diese Beschränkungen natürlich nicht. "
  389.                         "Dort können höhere Farbtiefen und Refreshfrequenzen verwendet werden..\n"
  390.                         "* Nur der ADPro 2.5 Treiber ist im Shareware release verfügbar. "
  391.                         "In der Vollversion gibt es auch Treiber für Maxon Cinema 4D, Real3D, Photogenics, "
  392.                         "PhotoWorx, AmaxIV ... mehr werden folgen.\n"
  393.                    )
  394. )
  395.  
  396.  
  397.  
  398. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  399.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  400.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  401.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  402.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  403.              )
  404. )
  405.   
  406.  
  407. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  408.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  409.                      "zu Hires-sprites (Sie werden nicht mehr von der cybergraphics Software "
  410.                      "verdoppelt). "
  411.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  412.                      "in der alten Picasso software)."
  413.                 )
  414. )
  415.  
  416.  
  417. )
  418.  
  419. )
  420.  
  421.  
  422.  
  423. ;******************************************************************************** 
  424. ;
  425. ; Main Part of the Installer (Main Loop) 
  426. ;
  427. ;********************************************************************************
  428.  
  429.  
  430. (if (= #PAY 1)
  431.    (message #ThankYou)
  432. )
  433.  
  434. (message #by)
  435.  
  436. ;******************************************************************************** 
  437. ; Check CPU & OS for Right versions 
  438. ;********************************************************************************
  439. (if (< osver 39)  (abort #MinReqOS) )
  440. (if (< cpu 68020) (abort #MinReqCP) )
  441.  
  442. ;******************************************************************************** 
  443. ;
  444. ;ASK DEFAULT GFX board
  445. ;
  446. ;********************************************************************************
  447.  
  448.  
  449. (set #board (cat "\nPlease Select the Graphics Board you wish to install Cybergraphics for:\n"))
  450.  
  451. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo"
  452.              (prompt #board)
  453.                      (help "Select a Gfx Board")
  454.                    (default 0)
  455.                  )
  456.           )
  457. )
  458. ;******************************************************************************** 
  459. ; Warning Messages 
  460. ;********************************************************************************
  461. (message #SysInfo) 
  462. (message #WillInstall)
  463.  
  464. ;******************************************************************************** 
  465. ; Maksure the Monitor type is set to Custom 
  466. ;********************************************************************************
  467. (if (< MonitorIS 99)
  468.  (
  469.   (if (= board 0) 
  470.     (message #NeedChangeTool) 
  471.   )
  472.  )
  473. )
  474. ;******************************************************************************** 
  475. ; Ask if to backup the Current OLDER libraries 
  476. ;********************************************************************************
  477. (set keep (askchoice (choices #BackUpFiles #DeleteFiles)
  478.              (prompt #ask-BackOrDelete)
  479.                      (help   #ask-BackOrDelete)
  480.                    (default 0)
  481.       )
  482. )
  483.  
  484. ;******************************************************************************** 
  485. ; If backup TRUE then move all old files to
  486. ;         "SYS:Storage/Village" or "SYS:Storage/EGS"
  487. ;********************************************************************************
  488. (if (= keep 0)
  489.  (
  490.  
  491.  
  492.  
  493.  
  494.  (if (= board 0)
  495.  
  496.   (
  497.    (if (< (exists ("SYS:Storage/Village")) 2)
  498.        (makedir ("SYS:Storage/Village") (infos)))  
  499.  
  500.    
  501.    (complete 10)
  502.    (if (> (exists ("libs:vilintuisup.library")) 0)
  503.      (copylib (source "libs:vilintuisup.library") (dest "SYS:Storage/Village"))
  504.    )
  505.    
  506.    (complete 20)
  507.    (if (> (exists ("sys:Expansion/village.library")) 0)
  508.        (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Village") (infos))
  509.    )       
  510.    
  511.    (complete 30) 
  512.    (if (> (exists ("Devs:Monitors/Picasso")) 0)
  513.        (copyfiles (source "Devs:Monitors/Picasso") (dest "SYS:Storage/Village") (infos))
  514.    ) 
  515.  
  516.   )
  517.  )
  518.  
  519.  
  520.  (if (> board 0)
  521.  
  522.   (
  523.    
  524.    (if (< (exists ("SYS:Storage/EGS")) 2)
  525.        (makedir ("SYS:Storage/EGS") (infos)))  
  526.  
  527.    (complete 5)
  528.  
  529.    (if (> (exists ("SYS:WBStartup/E.S.P.")) 0)
  530.        (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos))
  531.    )
  532.  
  533.    (complete 10)
  534.    (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0)
  535.        (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos))
  536.    )       
  537.     
  538.    (complete 15)
  539.    (if (> (exists ("SYS:WBStartup/EGSStartup")) 0)
  540.        (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos))
  541.    )       
  542.     
  543.    (complete 20)
  544.    (if (> (exists ("devs:monitors/piccolo")) 0)
  545.        (copyfiles (source "devs:monitors/piccolo") (dest "SYS:Storage/EGS") (infos))
  546.    )       
  547.   
  548.    (complete 25) 
  549.    (if (> (exists ("Devs:Monitors/EGS")) 0)
  550.        (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos))
  551.    ) 
  552.  
  553.    (complete 35)
  554.    (if (> (exists ("SYS:WBStartup/PicoRetarget")) 0)
  555.        (copyfiles (source "SYS:WBStartup/PicoRetarget") (dest "SYS:Storage/EGS") (infos))
  556.    )
  557.  
  558.  
  559.   )
  560.  )
  561.  
  562.  
  563.  )
  564. ) 
  565.  
  566. ;******************************************************************************** 
  567. ; Delete Old files from system
  568. ;********************************************************************************
  569. (complete 50)
  570. (if (= board 0)
  571.  (
  572.   (delete "sys:Expansion/village.library")
  573.   (delete "sys:Expansion/village.library.info")
  574.   (delete "Devs:Monitors/Picasso")
  575.  )
  576. )
  577.  
  578.  
  579. (if (> board 0)
  580.  (
  581.   (delete "SYS:WBStartup/EGSAmigaDriver")
  582.   (delete "SYS:WBStartup/EGSAmigaDriver.info")
  583.   (delete "SYS:WBStartup/E.S.P.")
  584.   (delete "SYS:WBStartup/E.S.P..info")
  585.   (delete "DEVS:Monitors/EGS")
  586.   (delete "DEVS:Monitors/EGS.info")
  587.   (delete "SYS:WBStartup/PicoRetarget")
  588.   (delete "SYS:WBStartup/PicoRetarget.info")
  589.  )
  590. )
  591.  
  592.  
  593. (if (= board 2)
  594.  (
  595.   (delete "DEVS:Monitors/Piccolo")
  596.   (delete "DEVS:Monitors/Piccolo.info")
  597.  )
  598. )
  599.  
  600.  
  601.  
  602. ;******************************************************************************** 
  603. ; Make ENVARC: for boards and copy files
  604. ;********************************************************************************
  605. (if (= #PAY 1)
  606. (
  607.  
  608.  
  609. (if (= board 0)
  610.  (
  611.   (run "makedir envarc:cybergraphics")
  612.   (run "makedir envarc:cybergraphics/Picasso")
  613.   (run "ConvPicassoModes")
  614.  )
  615. )
  616.  
  617.  
  618.  
  619. (if (= board 1)
  620.  (
  621.   (run "makedir envarc:cybergraphics")
  622.   (run "makedir envarc:cybergraphics/Spectrum")
  623.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Spectrum") (all) ) 
  624.  )
  625. )
  626.  
  627.  
  628. (if (= board 2)
  629.  (
  630.   (run "makedir envarc:cybergraphics")
  631.   (run "makedir envarc:cybergraphics/Piccolo")
  632.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Piccolo") (all) ) 
  633.  )
  634. )
  635.  
  636.  
  637. )
  638. )
  639.  
  640. ;******************************************************************************** 
  641. ; Copy over new Cyber files to system
  642. ;********************************************************************************
  643. (copylib (source "libs/cybergraphics.library")  (dest "libs:"))
  644. (copylib (source "libs/cyberintuition.library")  (dest "libs:"))
  645. (copylib (source "libs/cyberlayers.library")  (dest "libs:"))
  646. (copylib (source "libs/vilintuisup.library")  (dest "libs:")) 
  647.  
  648.  
  649. (if (= board 0)
  650.  (copyfiles (source "devs/monitors/Picasso")  (dest "devs:monitors") (infos) )    
  651. )
  652.  
  653. (if (= board 1)
  654.  (copyfiles (source "devs/monitors/Spectrum")  (dest "devs:monitors") (infos) )    
  655. )
  656.  
  657. (if (= board 2)
  658.  (copyfiles (source "devs/monitors/Piccolo")  (dest "devs:monitors") (infos) )    
  659. )
  660.  
  661.  
  662.  
  663. ;******************************************************************************** 
  664. ; Ask which modefile to install (in case of piccolo or spectrum)
  665. ;********************************************************************************
  666. (if (= #PAY 1)
  667. (
  668.  
  669. (if (> board 0)
  670.  (
  671.  
  672.    (set modefile (askchoice    (choices #15KHZ #31KHZ #57KHZ #64KHZ)
  673.                            (prompt #ask-MODEFILE)
  674.                            (help   #ask-MODEFILE)
  675.                          (default 0)
  676.              )
  677.    )
  678.  
  679.    (if (= board 1)
  680.       (
  681.         (if (= modefile 0) (run "setenv SpectrumMonitor Monitor-15khz") )
  682.         (if (= modefile 1) (run "setenv SpectrumMonitor Monitor-31khz") )
  683.         (if (= modefile 2) (run "setenv SpectrumMonitor Monitor-57khz") )
  684.         (if (= modefile 3) (run "setenv SpectrumMonitor Monitor-64khz") )
  685.         (copyfiles (source "env:SpectrumMonitor")  (dest "envarc:") )    
  686.       )
  687.    )
  688.  
  689.    (if (= board 2)
  690.       (
  691.         (if (= modefile 0) (run "setenv PiccoloMonitor Monitor-15khz") )
  692.         (if (= modefile 1) (run "setenv PiccoloMonitor Monitor-31khz") )
  693.         (if (= modefile 2) (run "setenv PiccoloMonitor Monitor-57khz") )
  694.         (if (= modefile 3) (run "setenv PiccoloMonitor Monitor-64khz") )
  695.         (copyfiles (source "env:PiccoloMonitor")  (dest "envarc:") )
  696.       )
  697.    )
  698.  
  699.  )
  700. )
  701.  
  702.  
  703. )
  704. )
  705.  
  706. ;******************************************************************************** 
  707. ; ASK to set the 2 ENV modes!
  708. ;********************************************************************************
  709. (if (= #PAY 1)
  710. (
  711.  
  712.  
  713. (set cpup2c   (askchoice    (choices "Yes" "No")
  714.                            (prompt #cpup2c)
  715.                            (help   #cpup2c)
  716.                          (default 0)
  717.           )
  718. )
  719.  
  720.  
  721. (if (= cpup2c 0)
  722.    (
  723.      (set GotaDo "setenv cybergraphics/CPUP2C=\"1\"")
  724.      (run GotaDo)
  725.      (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )
  726.    )
  727. )
  728.  
  729.  
  730. (set HIRESCRSR (askchoice    (choices "Yes" "No")
  731.                            (prompt #hirescrsr)
  732.                            (help   #hirescrsr)
  733.                          (default 0)
  734.            )
  735. )
  736.  
  737.  
  738. (if (= HIRESCRSR 0)
  739.    (
  740.      (set GotaDo "setenv cybergraphics/HIRESCRSR=\"1\"")
  741.      (run GotaDo)
  742.      (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") )
  743.    )
  744. )
  745.  
  746.  
  747.  
  748.  
  749. )
  750. )
  751.  
  752. ;******************************************************************************** 
  753. ; Ask to copy the ADPro driver
  754. ;********************************************************************************
  755.  
  756. (set adpro (askchoice    (choices #YES-ADPRO #NO-ADPRO)
  757.              (prompt #ask-ADPRO)
  758.                      (help   #ask-ADPRO)
  759.                    (default 0)
  760.        )
  761. )
  762.  
  763. ;******************************************************************************** 
  764. ; Ask WHERE to copy the ADPRO driver
  765. ;********************************************************************************
  766. (if (= adpro 0)
  767.  (
  768.  
  769.   (set adproDIR (askdir
  770.                    (prompt #where-ADPRO)
  771.                    (help #where-ADPRO)
  772.                    (default "ADPRO:Savers2")
  773.                    
  774.                 )
  775.   )
  776.  
  777.   (copyfiles (source "drivers/adpro/CyBERgraphics") (dest adproDIR) (infos) )
  778.  )
  779. )
  780.  
  781.  
  782. ;******************************************************************************** 
  783. ; ReG version with all the drivers!
  784. ;********************************************************************************
  785.  
  786.  
  787. (set #ask-driver (cat "Select The Driver you wish to install."))
  788.  
  789.  
  790.  
  791. (if (= #PAY 1)
  792.   (
  793.    
  794.    (set RegDriver (askoptions (choices "Maxon Cinema 4D" "PhotoWorx" "Photogenics"
  795.                                        "Real3D Library" )
  796.                     (prompt #ask-driver)
  797.                   (help   #ask-driver)
  798.                   (default 0)
  799.           )
  800.    )
  801.  
  802.  
  803.   
  804.    (if (IN RegDriver 0)
  805.       (
  806.        (copyfiles (prompt #where-MC4D)
  807.               (source "drivers/cinema4d/cinemaausgabe.library")
  808.               (dest   (askdir (prompt #where-MC4D)
  809.                       (help   #where-MC4D)
  810.                       (default "libs:")
  811.                   )
  812.               )
  813.               (optional) 
  814.        )
  815.       )
  816.    )
  817.  
  818.  
  819.    (if (IN RegDriver 1)
  820.       (
  821.        (copyfiles (prompt #where-PHOTOW)
  822.               (source "drivers/photoworx/cyber.viewer")
  823.               (dest   (askdir (prompt #where-PHOTOW)
  824.                       (help   #where-PHOTOW)
  825.                       (default "Work:")
  826.                   )
  827.               )
  828.               (optional) 
  829.        )
  830.       )
  831.    )
  832.  
  833.  
  834.    (if (IN RegDriver 2)
  835.       (
  836.        (copyfiles (prompt #where-PHOTOG)
  837.               (source "drivers/photogenics/cybergraphics.gio")
  838.               (dest   (askdir (prompt #where-PHOTOG)
  839.                       (help   #where-PHOTOG)
  840.                       (default "Work:")
  841.                   )
  842.               )
  843.               (optional) 
  844.        )
  845.       )
  846.    )
  847.  
  848.  
  849.    (if (IN RegDriver 3)
  850.       (
  851.        (copyfiles (prompt #where-REAL)
  852.               (source "drivers/real3d/cybergfx_r3d.library")
  853.               (dest   (askdir (prompt #where-REAL)
  854.                       (help   #where-REAL)
  855.                       (default "libs:")
  856.                   )
  857.               )
  858.               (optional) 
  859.        )
  860.       )
  861.    )
  862.  
  863.  
  864.  
  865.  
  866.  
  867.  
  868.  
  869.   )  
  870. )
  871.  
  872.  
  873.  
  874. ;******************************************************************************** 
  875. ; Ask to install DEVDOCS, Versions, Order, guide
  876. ;********************************************************************************
  877. (set ToDo       (askoptions (choices #order #guide #devdocs #versions)
  878.                 (prompt #wishtoinstall)
  879.                 (help #wishtoinstall)
  880.                 (default 63)
  881.         )
  882. )
  883.  
  884. ;******************************************************************************** 
  885. ; Ask WHERE to install DEVDOCS, Versions, Order, guide
  886. ;********************************************************************************
  887. (if (<> ToDo 0)
  888.  (
  889.  
  890.   (set CyberDrawer (askdir (prompt #WhereStuffDir)
  891.                (help   #WhereStuffDir)
  892.                (default "Work:CyberGraphics")
  893.            )  
  894.   )
  895.  
  896.  
  897.   (if (< (exists (tackon CyberDrawer "CyberGraphics")) 2)
  898.       (makedir (tackon CyberDrawer "CyberGraphics") (infos))
  899.         
  900.   )
  901.     
  902.  
  903.   (set where (tackon CyberDrawer "CyberGraphics"))
  904.   (set @default-dest CyberDrawer)
  905.  
  906. ;******************************************************************************** 
  907. ; COPY selected stuff!
  908. ;********************************************************************************
  909.   (if (IN ToDo 0)
  910.    (
  911.       
  912.     (if (= LAN 0)  
  913.       (copyfiles (source "Bestellformular")  (dest where) (infos) )    
  914.     )
  915.    
  916.     (if (= LAN 1)
  917.       (copyfiles (source "Orderform")  (dest where) (infos) )
  918.     )       
  919.      
  920.    )
  921.   )
  922.  
  923.  
  924.  
  925.   (if (IN ToDo 1) 
  926.    (  
  927.  
  928.     (if (= LAN 0)  
  929.       (copyfiles (source "CyBERgfx_D.guide")  (dest where) (infos) (newname "CyberGfx.guide"))    
  930.     )
  931.    
  932.     (if (= LAN 1)
  933.       (copyfiles (source "CyBERgfx_E.guide")  (dest where) (infos) (newname "CyberGfx.guide"))    
  934.     )        
  935.  
  936.    )
  937.   )
  938.  
  939.  
  940.  
  941.   (if (IN ToDo 2) 
  942.    (  
  943.      (if (< (exists (tackon where "DevDocs")) 2)
  944.           (makedir (tackon where "DevDocs") (infos))
  945.      )
  946.      (copyfiles (source "devdocs")  (dest (tackon where "DevDocs")) (all) ) 
  947.    )
  948.   )
  949.  
  950.  
  951.  
  952.   (if (IN ToDo 3) 
  953.    (  
  954.      (copyfiles (source "Versions")  (dest where) (infos) )    
  955.    )
  956.   )
  957.  
  958.  
  959.   
  960.  
  961.  
  962.  )
  963. )
  964.  
  965.  
  966. ;******************************************************************************** 
  967. ; How to get the REAL version and what coming!
  968. ;********************************************************************************
  969.  
  970. (if (= #PAY 0)
  971.   (message #Restrictions)
  972. )
  973. (message #Comming)
  974. (message #Updates)
  975. (message #REG)
  976.  
  977.  
  978.  
  979.